' Anthem
' This program plays the opening bars of "The Star-Spangled Banner."

CLS

INPUT "Press Return to begin", dummy$

FOR i% = 1 TO 12
    READ note%, duration%
    SOUND note%, duration%
NEXT i%

DATA 349, 4, 294, 4, 233, 8, 294, 8, 349, 8, 466, 16
DATA 587, 4, 523, 4, 466, 8, 294, 8, 330, 8, 349, 16

